home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / bin / repit.pl < prev    next >
Perl Script  |  1996-09-13  |  2KB  |  49 lines
  1. #!/usr/lab/bin/perl
  2.  
  3. $startdir = "/cdware/CDware/.products";
  4.  
  5. chdir($startdir);
  6.  
  7. open (LOG,">/tmp/logfile") || die " ERROR:  Could not create /tmp/logfile";
  8.  
  9. foreach $dir (`ls -d Cafe*`) { 
  10. chop;
  11. chop($dir);
  12.  
  13. print "\n  Modifying $dir ...\n";
  14. print LOG "\nModifying $dir ..\n";
  15.  
  16. foreach $_ (`find  $dir -name .wais -prune -o -name .bin -prune -o -name "*.html" -print -o -name "*.htm" -print -o -name "*.map" -print -o -name "*.HTML" -print -o -name "*.HTM" -print`) {
  17. #foreach $_ (`find  $dir -name .wais -prune -o -name .bin -prune -o -name "*.HTML" -print -o -name "*.HTM" -print`) {
  18.  
  19.  
  20.   open (OUT,">/tmp/tmpfile") || die " ERROR:  Could not create /tmp/tmpfile";
  21.  
  22.        $file = $_; 
  23.        chop($file);
  24.        $comp_name = $_ ; 
  25.        $comp_name =~ s/^\.\/([^\/]*).*/\1/g; 
  26.         #print LOG "$file:\n";
  27.  
  28.     open(FILE,"$_");
  29.     
  30.     while(<FILE>) {
  31.      $tmp = $_;
  32.      unless ($_ =~ "localhost:7999") {
  33.  
  34.       $tmp =~ s/(\<\s*[aA].*href\s*=[^hH]*|\<\s*[aA].*HREF\s*=[^hH]*)http:\/\/([^" >]*)|(\<\s*[aA].*href\s*=[^hH]*|\<\s*[aA].*HREF\s*=[^hH]*)HTTP:\/\/([^" >]*)/\1\3http:\/\/xm.com\/cgi-bin\/redir\.pl\?\2\4+$dir/g;
  35.       #$tmp =~ s/(\<.*[aA].*href.*|\<.*[aA].*HREF.*)http:\/\/([^" >]*)|(\<.*[aA].*href.*|\<.*[aA].*HREF.*)HTTP:\/\/([^" >]*)/\1\3http:\/\/xm.com\/cgi-bin\/redir\.pl\?\2\4+$dir/g;
  36.           #print LOG $tmp unless $tmp !~ "redir.pl";
  37.           #print $tmp unless $tmp !~ "redir.pl";
  38.      }
  39.      print  OUT $tmp;
  40.     }    
  41.     close(FILE);
  42.         close(OUT);
  43.     print "     filename: $file\n";
  44.     system "mv /tmp/tmpfile $file";
  45.     #unlink ("/tmp/tmpfile");
  46. }
  47. }
  48. close(LOG);
  49.